home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / pcboard / so_long.zip / SO-LONG.PPS < prev   
Text File  |  1996-01-31  |  3KB  |  158 lines
  1. ;So-Long.ppe 
  2. ;Version 1.0
  3. ;Francis "gorilla" Amato
  4. ;Fido: 1:2619/222
  5.  
  6. ;Variables and such
  7. integer count
  8. string key, prompt, prompt2
  9. prompt ="     @X0FESC to stay on, ENTER to log-off immediately     "
  10. count = 1
  11.  
  12. ;There are the following choices
  13. ;1) Press ESC to stay on-line
  14. ;2) Press Enter to leave immediately
  15. ;3) Do nothing and allow countdown and logoff
  16.  
  17. ;Countine looping till COUNT=10
  18. while (count < 10) do
  19.         key = inkey()
  20. ;If key = ENTER
  21.         if (key = chr(13)) goto tata 
  22. ;If key = ESC
  23.     if (key = chr(27)) goto OK
  24.  
  25. :clear an area of the screen to display the countoff
  26. ansipos 1,15
  27. clreol
  28. ansipos 1,16  
  29. clreol
  30. ansipos 1,17 
  31. clreol
  32. ansipos 1,18
  33. clreol
  34. ansipos 1,19
  35. clreol
  36. ansipos 1,19
  37. clreol
  38. ansipos 1,21
  39. clreol
  40. ansipos 1,22
  41. clreol
  42. ansipos 1, 20
  43. clreol
  44. ansipos 15,20
  45. println "",prompt
  46.  
  47. ;Where to go when the Count = X
  48.         if (count=1) gosub one
  49.         if (count=2) gosub two
  50.         if (count=3) gosub three
  51.         if (count=4) gosub four
  52.         if (count=5) gosub five
  53.         if (count=6) gosub six
  54.         if (count=7) gosub seven
  55. ;This is mildly interesting. After displaying the "7" number, it
  56. ;gives a PRESS ENTER TO CONTINUE prompt. The easist way to fix it was 
  57. ;to stuff an enter command into the buffer. The "press to continue" prompt 
  58. ;might be only on my system and not yours. U may need to remove or relocate
  59. ;the following command
  60.         command chr(13), false
  61.         if (count=8) gosub eight
  62.         if (count=9) gosub nine
  63. ;18 clockticks is about a second
  64. delay 18
  65. ;Add 1 to the count
  66. inc count
  67. endwhile
  68.  
  69. ;User is saying goodbye
  70. :tata
  71. hangup
  72.  
  73. ;User has decided to stay on-line
  74. :OK
  75. kbdstuff "^K"
  76. end
  77.  
  78. ;Display the numbers 
  79. :one
  80. ansipos 39,16
  81. println "@X8A─╖"
  82. ansipos 39,17
  83. Println "@X8A ║"
  84. ansipos 39,18
  85. println "@X8A─╨─@X07"
  86. return
  87.  
  88. :two
  89. ansipos 39,16
  90. println "@X8A───┐"
  91. ansipos 39,17
  92. println "@X8A╓──┘"
  93. ansipos 39,18
  94. println "@X8A╙───@X07"
  95. return
  96.  
  97. :three
  98. ansipos 39,16
  99. println "@X8A╓──┐"
  100. ansipos 39,17
  101. println "@X8A ──┤"
  102. ansipos 39,18
  103. println "@X8A╙──┘@X07"
  104. return
  105.  
  106. :four
  107. ansipos 39,16
  108. println "@X8A╥  ┬"
  109. ansipos 39,17
  110. println "@X8A╙──┤"
  111. ansipos 39,18
  112. println "@X8A   ┴@X07"
  113. return
  114.  
  115. :five
  116. ansipos 39,16
  117. println "@X8A╓───"
  118. ansipos 39,17
  119. println "@X8A╙──┐"
  120. ansipos 39,18
  121. println "@X8A───┘@X07"
  122. return
  123.  
  124. :six
  125. ansipos 39,16
  126. println "@X8A╓──┐"
  127. ansipos 39,17
  128. println "@X8A╟──┐"
  129. ansipos 39, 18
  130. println "@X8A╙──┘@X07"
  131. return
  132.  
  133. :seven
  134. ansipos 39,16
  135. println "@X8A╓──┐"
  136. ansipos 39,17
  137. println "@X8A   │"
  138. ansipos 39,18
  139. println "@X8A   ┴@X07"
  140. return
  141.  
  142. :eight
  143. ansipos 39,16
  144. println "@X8A╓──┐"
  145. ansipos 39,17
  146. println "@X8A╟──┤"
  147. ansipos 39,18
  148. println "@X8A╙──┘@X07"
  149. return
  150.  
  151. :nine
  152. ansipos 39,16
  153. println "@X8A╓──┐"
  154. ansipos 39,17
  155. println "@X8A╙──┤"
  156. ansipos 39,18
  157. println "@X8A╙──┘@X07"
  158. return